100 CALL CLEAR
110 RANDOMIZE
120 CALL SCREEN(5)
130 CALL CHAR(97,"3C20203824042418")
140 CALL CHAR(137,"815A3C5A3C245A81")
150 FOR K=2 TO 8
160 CALL COLOR(K,16,8)
170 NEXT K
180 CALL CHAR(104,"03071C33100811FE")
190 CALL COLOR(10,5,15)
200 CALL CHAR(136,"183C6C5EFFFE7E18")
210 CALL CHAR(144,"000000387EFFFE3C")
220 CALL COLOR(15,2,15)
230 CALL COLOR(14,16,15)
240 CALL CHAR(128,"001C608619648200")
250 CALL COLOR(13,13,15)
260 CALL CHAR(152,"FFFFFFFFFFFFFFFF")
270 CALL CHAR(153,"0103070F1F3F7FFF")
280 CALL CHAR(154,"80C0E0F0F8FCFEFF")
290 CALL CHAR(120,"00000000000000FF")
300 CALL COLOR(12,2,6)
310 CALL CHAR(96,"7EBDBD7E3C183C7E")
320 CALL COLOR(9,7,15)
330 CALL COLOR(16,6,8)
340 CALL CHAR(145,"00")
350 CALL VCHAR(1,1,31,48)
360 CALL CHAR(104,"03071C33100811FE")
370 PU=0
380 CALL VCHAR(1,31,31,48)
390 CALL COLOR(1,16,8)
400 PRINT "           SKIERS  ": : :
410 PRINT "      BY LUCA BRENTARO": : : :""
420 PRINT ""
430 PRINT ""
440 PRINT ""
450 PRINT "`a"
460 PRINT "": : :"        PREMI  SPACE       ": :
470 CALL KEY(0,K,S)
480 ON INT(RND*3)+1 GOSUB 1440,1460,1480
490 CALL SOUND(-1000,S*(INT(RND*2)+1),10,131,20,196,20)
500 CALL SOUND(-1000,S*(INT(RND*2)+1),20)
510 CALL SOUND(-1000,S*(INT(RND*2)+1),25,131,25,196,25)
520 IF K=32 THEN 530 ELSE 470
530 PRINT : : : : : : : : : : : :
540 PRINT " PUNTI 0         DISCESA  1": : : :"                  "
550 PRINT "       "
560 PRINT "xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
570 PRINT ""
580 PRINT ""
590 PRINT ""
600 PRINT ""
610 E=12
620 CALL HCHAR(24,3,145,28)
630 CALL HCHAR(E,29,145)
640 E=INT(RND*11)+13
650 CALL HCHAR(E,29,96)
660 FOR B=1 TO 2
670 FOR A=128 TO 144 STEP 8
680 K=INT(RND*13)+12
690 S=INT(RND*22)+6
700 CALL HCHAR(K,S,A)
710 NEXT A
720 NEXT B
730 B=3
740 A=18
750 C=0
760 CALL KEY(3,K,S)
770 IF K=88 THEN 780 ELSE 790
780 C=1
790 IF K=69 THEN 800 ELSE 810
800 C=-1
810 IF K=68 THEN 820 ELSE 830
820 C=0
830 A=A+C
840 B=B+1
850 IF A=25 THEN 1130
860 CALL GCHAR(A,B,K)
870 IF K=96 THEN 890
880 IF K<>145 THEN 1130
890 CALL HCHAR(A-C,B-1,145)
900 CALL HCHAR(A,B,104)
910 IF B=29 THEN 920 ELSE 760
920 IF A=E THEN 1040
930 CALL HCHAR(A,B,145)
940 CALL SOUND(-1000,523,5,262,2,131,10)
950 CALL SOUND(-1000,523,10,330,8,131,15)
960 CALL SOUND(-1000,523,19,392,15,165,20)
970 CALL SOUND(-1000,523,25,262,20,196,25)
980 PU=PU+10
990 SC=SC+1
1000 FOR K=1 TO LEN(STR$(PU))
1010 CALL HCHAR(3,9+K,ASC(SEG$(STR$(PU),K,1)))
1020 NEXT K
1030 GOTO 630
1040 CALL HCHAR(A,B,96)
1050 PU=PU+5
1060 FOR K=1 TO 5
1070 CALL COLOR(9,11,15)
1080 CALL SOUND(100,131,20,523,10)
1090 CALL COLOR(9,7,15)
1100 CALL SOUND(100,165,20,659,10)
1110 NEXT K
1120 GOTO 930
1130 CALL SOUND(-200,-7,1)
1140 CALL CHAR(104,"0005000A200821FE")
1150 CALL SOUND(500,196,20)
1160 CALL CHAR(104,"0004110822082194")
1170 CALL SOUND(500,131,20)
1180 CALL CHAR(104,"0200020800241040")
1190 CALL SOUND(500,123,20)
1200 CALL CHAR(104,"0000010080000000")
1210 FOR K=1 TO 1000
1220 NEXT K
1230 CALL HCHAR(3,3,32,28)
1240 GOTO 1340
1250 FOR K=120 TO 110 STEP-1
1260 CALL SOUND(200,K,10)
1270 CALL SOUND(-100,K+5,11)
1280 NEXT K
1290 FOR K=115 TO 110 STEP-.5
1300 CALL SOUND(200,K,20+(K-110))
1310 CALL SOUND(100,K+10,25)
1320 NEXT K
1330 GOTO 1390
1340 A$="GAME  OVER"
1350 FOR K=1 TO LEN(A$)
1360 CALL HCHAR(3,11+K,ASC(SEG$(A$,K,1)))
1370 NEXT K
1380 GOTO 1250
1390 FOR K=1 TO 1000
1400 NEXT K
1410 CALL COLOR(1,5,5)
1420 CALL CLEAR
1430 GOTO 350
1440 S=262
1450 RETURN
1460 S=330
1470 RETURN
1480 S=396
1490 RETURN
